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1.  Introduction 

Yhe  IBM  Job  Control  Language  (JCL)  Is  a  fairly  diverse,  lelatively 
complex  command  language  used  to  .allocate  and  control  the  Operating 
System's  resources.  While  programmers  using  the  IBM/360  system  need 
9oroe  knowledge  of  JCL,  it  is  desirable  to  allow  users  of  production 
programs  to  allocate  and  control  the  system  resources  with  a  minimum 
of  JCL  knowledge.  In  particular,  the  automatic  allocation  of  Deta 
Definition  (DD)  statements  would  facilitate  and  enhance  the  use  of 
disc  storage  for  user’s  data  sets. 

The  "CODE0991"  procedure  described  in  this  report  was  designed 
to  enable  users  of  the  DON  Project's  program  library  to  easily  store 
and  retrieve  data  from  the  project  disc  "PEACEl.’’ 

The  procedure  to  be  described  may  easily  be  modified  to  be  used 
in  conjunction  with  other  user  disc  librarias. 

2.  Design  Objectives 

The  desirable  design  objectives  for  the  CODE0991  procedure  are 


as  follows: 


.  Automatic  linkage  to  DOH's  program  library 

.  Automatic  allocation  of  all  scratch  devices 

,  Automatic  allocation  of  passed  data  sets  for  t';.z  Modular 
Factor  Analysis  package 

.  Automatic  DD  allocation  of  input /output  data  sets  (on  disc) 
requiring  only  the  specification  of  the  data  set  name. 

The  automatic  linkage  of  programs  via  the  JCL  "STEPLIB"  facility 
and  the  allocation  of  scratch  devices  are  standard  technques  and  will  not 
be  discussed  further.  The  automatic  allocation  (e.g.  passing  of  data 
sets)  for  thr  Modular  Factor  Analysis  package  is  accomplished  by  pre- 
allocation  of  prescribed  data  sets  for  communication  between  the  individual 
programs  in  the  package.  This  facility  is  useful  when  the  user  does  not 
want  to  save  the  results  when  the  job  is  finished  or  desires  only  to  save 
selected  results. 

3.  Implementation  of  DD  Allocation 

The-  primary  purpose  of  the  ’’CODE0991"  procedure  is  to  allow  the 
automatic  DD  allocation.  This  is  accomplished  by  allocating  in  the 
procedure  nine  input  (DISP* (NEW, KEEP))  and  nine  output  (DISP* (OLD, KEEP)) 
devices  and  setting  the  DSNAME  equal  to  a  symbolic  parameter  (e.g. 
DSNAME*«IN31  or  DSNAME*&0UT41) .  Then  by  setting  the  default  names  for 
each  and  every  DSNAME  to  NULLFILE  (e.g.  IN41-NULLPILE  and  0UT41-NULLFILE) 
on  the  PROC  DEFAULT  statement,  allocation  will  occur  only  when  the  user 
overrides  this  default  and  supplies  his  data  set  name  on  the  EXEC  card. 
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For  example,  to  run  a  program  named  MCORRE  and  input  one  data  set 
from  the  diec  while  outputing  two  data  sets,  the  JCL  would  be  as  follows 

//name  JOB  (parameter ..  »  'users  name' 

//  EXEC  CODE09*1 ,  PROGRAM**  'MCORRE ' , 

//  IN31-'”ff .  INPUT. DATA' , 

//  0,TT4l=  'MY . CORREL ' , 

//  C' ’VA 2-  *MV  -RAV .DATA. BINARY ' 


The  u.. <  jou^i  tits'*  .r  -•'cate  in  the  problem  card  for  the  program 
the  devices  tw  'elated  -  1N31,  0UT41,  GUT42.  The  FORTRAN  devices 

associated  with  each  name  are  simply  the  last  two  digits  in  the  name. 
The  devices  a  use-  'ay  allocate  in  "CODE0991"  are  as  follows: 


INPUT 


NAME 

DEVICE 

IN31 

31 

IN32 

32 

J.N33 

33 

IN34 

34 

IN35 

35 

IN36 

36 

IN37 

37 

1N38 

38 

IN39 

39 

OUTPUT 


NAME 

DEVICE 

0UT41 

41 

OUT42 

42 

OUT43 

43 

OUT44 

44 

OUT45 

45 

OUT46 

46 

OUT47 

47 

0UT48 

48 

OUT49 

49 

Note  that  in  the  example,  we  let  the  user  allocate  data  sets  with 
qualified  names.  These  are  not  catalogued  data  sets,  bvc  simply  a 
facility  to  allow  the  user  to  group  related  data  in  a  tree  structure 
convenient  to  suit  his  own  particular  purposes  and  data. 
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4.  Users  Instructions 

The  following  Instructions  apply  to  the  "CODE0991*'  procedures  as 
it  is  implemented  at  the  University  of  Hawaii  only.  But,  only  slight 
modification  would  be  needed  for  other  implementations. 

CODE0991  is  a  procedure  implemented  to  allow  DON  Project  members 
easy  access  to  their  data  sets.  The  convention  adopted  is  to  allow  the 
most  general  form  of  data  set  naming  allowed  by  the  system.  Hence,  users 
are  allowed  to  form  qualified  names  which  may  be  up  to  40  characters  in 
length,  and  appears  in  the  following  format: 

*MY. DATA. SET. NAME' 

where  each  name  separated  by  a  period  is  no  longer  than  8  characters 
and  begins  with  an  alpha  character.  The  40  character  length  restriction 
includes  the  periods.  These  qualified  name  structures  give  rise  to  a 
"tree"-like  structure  which  is  very  useful  in  organizing  data  sets  for  a 
particular  study.  One  rule  prevails,  the  first  name  must  be  the  users 
name.  For  example. 


USER1 


YEAR1  YSAR2 


RAWDATA  OUTPUT 


SET1  SET2  SET3 


I  >  I 

CORR  FACTORS  SCORES 
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This  diagram  gives  a  part'  picture  of  a  typical  design  of  a  data 
library  for  USER1.  To  access  a  particular  data  set,  the  user  simply 
codes  (starting  at  the  top)  the  name  at  each  level  separated  by  a 
period  to  form  the  qualified  data  set  name.  For  example, 

’ USER1 . YEAR1 .  RAWDATA . SET2  * 

’USERl . YEAftl .OUTPUT . CORR ’ 

In  this  fashion,  the  user  can  create  his  own  structure  to  suit  his 
particular  needs. 

With  this  general  naming  convention  in  mind,  then,  the  user 
must  supply  the  following  information, 

.  The  name  of  the  program  to  be  run 
.  The  region  size 

.  The  names  of  the  data  sets  to  be  used 
To  supply  the  name  and  region,  the  user  simply  codts 
//  EXEC  CODE0991 , PROGRAM- ’ name ’ , RG-nnnK 

where 

name  »  the  program  name  you  want  to  run 
nnn  »  region  size  in  bytes 

To  access  a  data  set  which  already  exists  on  the  disk  (PEACE1),  the 


user  codes 
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//  EXEC  CODE0991 , PROGRAM* 'name ' , RG*nnnK, 

//  IN32« * USERl . YEAR1 . RAHDATA .  SET1  ’ 

Notice  that  a  comma  must  appear  after  the  RG  parameter.  To  create 
a  new  data  set  on  PEACEl  the  user  codes, 

//  EXEC  CODE099 1 , PROGRAM- ' name * , RG-mmK , 

//  0UT43»'USER1.YEAR1. OUTPUT. CORR' 

In  particular.  If  a  user  desires  to  run  correlation  (MCORRE)  and 
determines  that  the  region  size  is  200R,  he  would  code, 

//SAMP  JOB(tlme,  job#,  200.TR),  'user’s  name’ 

//  EXEC  CODED991,PROGRAM«'MCORRE',RG*200K, 

//  IN32« 'USERl.YEARl. RAW  DATA. SET1’, 

//  OUT43*=  'USER1  .YEAR2 .OUTPUT. CORR' 

//GO.SYSIN 

(program  control  cards  with  the  input  device  =  32,  output  device  *  43) 

/* 

Note  that  the  name  used  for  the  output  device  must  not  already 
exist.  The  comma  indicates  that  another  procedure  control  card  follows. 
Device  allocation  is  automatic  and  if  the  job  does  not  complete 
normally,  the  output  data  set  will  be  deleted.  Remember  in  any  one 
job  step  (e.g.,  //  EXEC)  there  may  be  up  to  nine  input  (IN31-IN39) 
nine  output  (OUT41-OUT49)  data  sets  allocated. 


BIBLIOGRAPHY 


°peratlns  S>’ste":  •»»>  Control  Language  Reference, 

2?LTT£?7oTT*tlni  SySte":  J°b  C°"tro1  ”»«. 
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//CODE0991  PROC  PROGRAK-OON INF O,RG*230K»PLOT  =NULLFl L  E, 

//  IN31=NULLF IL£,IN32-NULLF  IlE. IN3 3=NUL LF  IL £ , I N34=NULLF [ IE , 

//  IN3S=NULLFlLl .INJ6-MJLLF IL Er I N3 7=NULLF IL 6 , I N36=Nl* LLF I LE, 

//  IN39=NULLFIlE, 

//  0UT41  =NULLFILc,C',,T42  =  NULLFILE,OUT4  3=NULlF  ILE,euT44=NUUFlLE, 

//  0UT45=NULLf  U  E,0UT<-6=NULLF  ILE  .  0UT47=NULL  F  ILE  ,0UT48=NULLF  ILE, 

II  0UT49=NULLFILC 

//***********«*«»«*»*»•****?***«**»*•*******#************♦**#*****<•**** 

II* 

//•  tfssisii(iii(tsi(issstisttssiisttsstt((tittu(tstttuti 
II*  *  i 


II* 

$ 

THI  S 

IS  A  NFW  IMPLEMENTATION  OF  THE  C0CE9991 

$ 

//* 

s 

PROCEDURE.  THE  DATE  OF  I MPLEM-ENTA  T ION  IS: 

S 

//* 

t 

t 

//* 

$ 

- - - - ‘ 

s 

//* 

s 

1  t 

s 

//* 

% 

1  20  OCT.  71  1 

s 

//* 

t 

!  1 

t 

//* 

s 

s 

II* 

» 

% 

//* 

% 

SOME 

DEVICE  ALLOCATIONS  HAVE  CHANCE,  SO  CHECK 

% 

II* 

$ 

YOUR 

DEVICE  ALLOCATION  TO  RE  SURE  THEY  ARE 

* 

//* 

s 

THEY 

ARE  COMPATIBLE  WITH  THE  NEK  DEVICES. 

s 

//* 

$ 

s 

//• 

iitssttittiitiiHtitiiissuisiitttisssutstimttttitst 

✓/* 

//* 

THE  COOE  PROCEDURE  ALLQHS  A  USER  EASY  ACCESS  TO 

PROGRAMS 

//* 

AND 

DATA 

SETS  ON  P6ACE1.  THE  FOLLOWING  IS  A  LIST  OF 

TKfc  FORTRAN 

//* 

UNITS  ALLOCATED  and  a  description  of  THEIR  use. 

//* 

//* 

UNIT  DESCRIPTION 

//* 

//* 

01 

SCRATCH 

//* 

02 

SCRATCH 

//* 

03 

SCRATCH  -  CAPO  IMAGE 

//* 

04 

SCRATCH 

//* 

//* 

05 

CARO  READER 

//* 

06 

PRINTER 

//* 

07 

CARO  PUNCH 

//* 

//* 

08 

SCRATCH 

II* 

09 

SCRATCH 

//* 

10 

SCRATCH 

//* 

//* 

12 

************** ♦•*****•«*«****»*• ****** 

//* 

13 

♦ 

* 

II* 

14 

*  MODULAR  CO“HLNICATIONS  OATA  SETS 

* 

n* 

15 

*  USED  TO  PASS  DATA  SETS  FRO**  ONE 

• 

n* 

16 

*  JOB  STEP  TO  THE  NEXT  JOB  STEP 

* 

ii* 

17 

• 

* 

n* 

IS 

•  ** 

ii* 

ii* 

20 

♦  * 

ii* 

21 

*  USED  BY  REVISED  DISTANCE  ONLY 

ii* 

22 

ii* 

ii* 

31 

ii* 

32 

* 

* 

ii* 

33 

* 

* 

ii* 

34 

* 

* 

n* 

35 

*  USER'S  INP’.'T  DATA  DEVICES 

* 

n* 

36 

• 

• 

ii* 

37 

* 

• 

ii* 

38 

• 

* 

n* 

39 

n* 

n* 

41 

ii* 

42 

* 

• 

ii* 

43 

• 

• 

ii* 

44 

• 

« 

ii* 

45 

•  USER'S  OUTPUT  DATA  DEVICES 

• 

ii* 

46 

• 

• 

ii* 

47 

* 

* 

ii* 

48 

• 

* 

ii* 

49 

ii* 

ii* 

IMI 
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************ 


//GO  EXEC  PGM=EPRUGRAM,fc£GI  CN=CRG 

//SUPLIB  OO  UNI T=2314,0ISP=SHR,0SNAPE=PR0GRAMS. 

//  VUL*IPRIVATE,RETAlf,,S£fi  =  (PF4CE1H 

//* 

//*  ************ 

U*  *  ALLOCATE  A  PLOT  TAPE  » 

//*  ************ 

//* 

//PLGl'TAPE  00  UNlT=<7TRK,,D£FFRI,LAEEL=(,8LP),0SNAME=tPL0T, 
//  vol  =  sek-£.plot,oisf  =  ine*,keepi 

//* 

//*  **************** 

//*  *  ALLOCATE  ALL  FORTRAN  DEVICES  * 

//*  **************** 

//* 

//FT01FC01  00  UN  I T  =  2  314, VOL  *S£R=L‘HSYS3»  Of  SP  =  (NcK»OEL  ETE ) , 

//  OCB  =  <RECFM=Vi<S,LR£CL=729,flLKSlZ6-7294l, 

//  SPACE=ICVL.(2,2I ) 

//FTGZFc-Cl  00  U\  1  T  =  2  314 ,  VilL  =  S£R  =Urt SYS 6*  31  SP  =  I NEk.DFL  ETE ) , 

//  OCB=<kECFM=VnS,LKFCL=729,f<LKSlZE=7294)  , 

//  SPAC£=(CYL«(2«2) I 

// FIC3FG01  00  UNlf=2314,V0L=ScR=UMSVS6,CISP=(NEW, DELETE*, 
//  0Ca=<P.SCF,<=FP,LRECL--eC,8LKSIZe=7280», 

//  SPACE  =( CVL»( 2 ,2) 1 

//FTC4FC01  00  UN1T=2314,V0L=SER=UHSYS6,CISP=<NSW,0EIFTE), 

//  0C8=(h£LFM=vaS,LRECC=72o,8LKSIZ£=7294I, 

//  5PACE=(CYL,12,2)) 

//FTGSFCul  00  OONArt£=SY$lN 
//FT06FCG1  00  SySOUT  =A  ,DC3  =  R£CF.u=UA 
//FT07F001  00  SYSOUT=P 

//FT06FGC1  00  UNIT  =  S  YSCA ,0 1 SP~  I  NEW, DELETE!, 

//  DCB=(RECFH=V8S.L- £CL  = 729, 8LXSIZE= 7294 J, 

//  SPACE=ICYL,( 2,2> ) 

//FT09FCC1  00  UNJT=SYSCA.CISP=INr«, DELETE), 

//  0Cb=(R£CFf'=V9S,LRECL=7?9,5LKSIZE=7294), 

//  SPACE  =! CY l , I  2 , 2) ) 

//rncFCOi  oo  unitssysca, cisp-inch, delete i, 

//  1)C8  =  <  RECF  V  'S,LftECL-72?,bL'CSI/£=7294)  , 

//  SPACE  =(CYL,I2,2I ) 

//FT  12F001  00  UM  T*2314,DISP  =  (CL9,*C=EPI  ,OSNA*!E=$f<ODRAw, 

//  VL)L  =  I  PRIVATE,  H£TAI!.,SsR=(PEACE1))» 

//  OCe  =  IRECFP  =  VBS,LF  CCL  =  7’9,RLKSIZc  =  7294> 

//FT  1  3F001  00  UMI--E 314,01  S?  *  (OLD.  £F  • , r)'NAB£r iPOD.'..> , 

'/  VOL ” I Pk 1 w  AT i , *  r  T A »N,SeR= IP! A  ,£1 )>  , 
ii  DL«J-=5kECFH  =  VLS,LRECL-72V,t;lSS:Zr  =  7'99) 

//TT14FC-01  00  JNIT=2314,Di SP^IOLC. x“cP) ,0SNAPE=sH0DFl, 

//  V  OL  =  I  PR  I V  A  T c ,  Sr  T  A  !w ,  SER=  (P  t  AC  F 1 ) )  « 
it  0C8*  (RfcCFP=V8S,LK£CL*  729,01  KS  1 Z  £*7294) 

//FT1SFC01  00  UMT-221*»,OISP-(Ol.7,kFEP),DSNAHc  =  SMOORFL, 

//  VOL  =  t  PR  IV A*£ ,h;T A  IN  t SSR- lit AC  =  1 )) , 

//  DCB= IkECFH=VkS, LA fcCL= 729, ELKS IZE-  7/94) 

//FTioFCOl  00  Uf.  !I  =  2;14,i)IS*,  =  fOL::.K:  €?)  ,DSNa"£=SHOOF  S, 

//  VOL-IPRIVATfc, RETAIN, SER= (PEAC-i ) ), 

//  DCB=tRSCF.*=VBS,LPtCL-739,EL*S!ZF=7294) 

//FU7FC01  00  UMT  =  2314,DISP=(  JLC,KfcP)  ,DSNAM£  =  JM'JOYM, 

//  V0L  =  IPKIVAIl,RL7A1N,S?R=»P£ACFI  )», 

//  OCft=IRECr  M=VbS,LrcCL=729,BLXSIZE-72J-,l 
//FT16FC01  00  U.’;lr*?31*,r*ISP  =  (0L ’.K1  £P)  ,OSNAVE=HODYP, 

//  VGL=( PR IVAIE, RETAIN, i£P=  (P«=ACt!  )), 

//  0CB  =  (R£L*-B*VnS,L»fcCL  =  729,!*LXSI££-72a4) 

//FT2CFCC1  00  UMT=SYS0A,01SP  =  1  icH,r  =  LETE  >, 

//  OCB=I kECF"*  vkS, L«  £CL - 729,BlXS I / E  =  7294 ) , 

//  SPACc=( IRR, ( 5,;) ,«LSc ) 

//f  T25  F'Ol  00  l,MT  =  SYSOA,OiSP  =  IN'i.H,riELET£), 

//  0L‘.  =  (SECFH  =  V3S,LPtCL  =  729,flt «$;/£  =  729- 1  , 

//  SPACfc=(TRK,:$,5I.RLSr ) 

//FT22F0G1  00  UN  IT- S  ysda.  Cl  Sp  =  1-nFw,  •  HF  Tf  I, 

//  !)Cb  =  ««ECFM-Vt>S,  Li-.-CL  =  72<J,t*LXSIZ£-  7 294)  , 

//  SPACE  =  (  TRK,IS,t>),FLSE) 


s 
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//FT 31FG01  DO  UNIT=2314,OISP=IOLO,KEEP) ,DSNAME=CIN31, 

//  VO1.  =(PRIVATE,R£TA!N,SER=(PEACFni, 

//  0CB=(RECFM=V8S,LRECL=729,rtLKSlZe=7294) 

//FT32FC01  00  UN I T  =  2 314 , 0 1 SP  = ( )L0, Kf- E P) , PSN AM6  =  CIM32. 

//  VOL=IPRlVATE,R£TAlNfS£R=IPt ACE1J  )  , 

//  OCB  =  < R£CFM=VBS» LR £CL  =  729, ulKS  1 2E  =  7294 ) 

//FT33F001  00  UN  11=2314,01 SP= (OL D.KEEP) ,0SNAM£  =  CIN33, 

//  VOL  =  ( PR  I VAT£, RET  A  IN, S£R  =  (i-EACEi  )  ), 

//  0CB  =  (RECFM=V;)S,LRECL=729,-SLKS  12  6  =  7294) 

//FT34F001  00  UNIT-2314, 0I5P- IOLO,KcEO) ,0SNAH£=CIN34, 

//  VOL=(PRIVATc, RETAIN, SER=IP£ACS1  1  1, 

//  0CB=IREC(:M::VBS,LP£CL  =  729,8LKS1ZS  =  7294) 

//FT35F 001  00  UN  I  T=  314 , 01  SP=  I  OL  C,  KEEP  I  ,  DSN  AME  =  UN35 , 

//  VOL  =  (  PRIVATE, RETAIN, SER=(t’EACEl  ‘)  , 

//  DC 8  =  I  RE  CrK*  VOS,  Lr£CL=729, hi  KS  1 2 -=7294) 

//FT36FC01  00  UN  I  =2 314,0 1 SP= I OLO.Kf £P ) ,CSNAM£  =  C IN36 . 

//  .VOL  =  I  PR  I V  ATE, RET  A  IN, SgR= I  PE ACE1 ) ), 

//  0CB=(RECFK=VBS,LKECL  =  729,iUKSUE  =  ?:>4) 

//FT37FG01  00  UN  I  T  =  2 314, 01 SP= f OLO, k-£P) , DSN AME=C IN37 , 

,7  VOL  =  IPRIVATE,KETAIN,SER= IP EASED  I, 

//  OCB=  I  RcCFM=VGS,LPECL=729,BL.K  SI  25  =  7294) 

//FT3eF0Gl  00  UMlT=23l4,OISP=(OLO,KEEP),OSNAf*£=ClN3B, 

//  V0L  =  IPRIVAT£,R6TAIiN,SEK=(PEAC£1)), 

//  OCB  =  l  RECFH-V!iS,LR£CL=  729,  P-LRS  126  =  7294) 

//FT39FO01  00  UNIT  =  2314,OISP  =  IOLO,KEEP)  ,DSNA«IE  =  CIN39, 

//  VOL=(PRIVATE,RETAIN,SER=(PfACEl )), 

//  0CB  =  (R£CFM  =  VtlS,LKfCL  =  729,HLKS  12 £  =  7  294) 

//FT41FC01  00  Uri|T  =  2  314,0ISP=I NEw, KEEP, OrLE  TE) »DSNAME= *CUT4l, 
//  VOL=< PRIVATE, RETAIN, SER=IPEACE1 ) ), 

//  UCe=  I  R£CFM=Vf>$,LRfcCL  =  729,l>lK  5126=7294)  , 

//  SPACE=CTRK,(5,S),PLS£I 

//FT 42FGG1  DO  UN  I T  =  2 31 4 , 01 SP= C HEW, K? EP, CELE TE ) ,0SNAME  =  CCUT42, 
//  VOL  =  I PR IV ATE, RETAIN, ScR=IP£ACEl ) ), 

//  0Ce=<RECFM=VoS.LKECL=729,8LKSI2£=7294> , 

//  SPACE=<  TRK, (5.5) « RL  Sc ) 

//I  T43FC01  00  UN  11=2  314,01  SP=  I  NEW,  kE £P, OElE TE) , DSNAME=  C0UK3, 
/,  VOL=irRIVAIE,R£TAI,N,SE«=IPf  AC  El  >  ), 

//  0Cb  =  (RECFM  =  V0S,LP£CL  =  7?9,i)i.KSI  26=7294)  , 

//  SPACE  =  1TRK,I5*5!  ,RLSF) 

//FT44F0C1  DO  UN  I  T  =  2  314,01 SP= I  NEK, KEEP. DELS  Tt)  ,0SNAM.;  =  CCUT44, 
//  VOL  =  I  PRIVATE, RETAIN, 5 £R»IPf ACtl ) *  * 

//  DCb=«ft£f.FM=V.'.S,LRECL  =  7>9,3lKSI2£  =7294)  , 

//  SPACE  =  1 TRK , ( 5,5) »Rls£i 

//FT 45F  '-01  00  UN  I  T=  2  M  4 , 01  Sr  =  (  TT-.h,  K-  =  P,  DELE  TE >  , D SNA-) E=  CCUT45, 
//  VOL=(PRIVATE,RETAIn, S£3-(^E ACFl ) ) , 

//  DCB=IRECF K=VoS,LPcCL=729,BLKSI2E=7294) , 

//  SPACE=(TRK,(5,S),klSE) 

//FT46FC01  00  UN  I T  =  2 314,0! SP= l NsW, k=EP, OElE TE I , OSNAKE= CCUT46, 
//  VOL  =  1  PRIVATE,  RET  A  !N,S£a=  (Pr  ACr.l )  )  , 

//  OCB  =  IR£Cf  H=VBS,  LR  EC  L  =  7  !9  ,.-)LK:>IZ  £=  7244)  , 

//  SPAC£=< TRK, 15, S, ,KLSf ) 

//FT 47FC01  00  UN  17  =  2314, 0!SP  =  IN£R, KEEP, DELETE), OSN AM £  =  CCUT47, 
//  VOL  =  I PR  IV  ATE, RETAIN, SFR= IPEACfl ) ), 

//  0CB= IRcCfM=VPS.LRECL=729,diKS 12 5=7294 ) , 

//  SPACfc=( TRK, ( 3, 5 ) , SL St ) 

//FT48FC01  00  U-N  I V  =  2  31  <,  ,0  -  SP=  I  NEv>,KcEP, DELETE)  ,0SNAM£=C0UT43, 
//  VOL ={?fi I V A1 £, RcT A  IN,  SLR= (PE ACi 1 ))  , 

//  0C3=(RECRM  =  V3S,L?.ECt  =  724,3LKSl2==7294), 

//  SPACt=( TkK,(5,5) ,PLSc ) 

//FI 49FC01  00  U, 11=2314. P!SP=IN£n, KEEP, CFLE IE ) ,OSNAME  =  CCCT49, 
//  VOL= l PR IVA1E, RETAIN, SfR=( PEACE! )), 

//  UC6  =  (RECFM=Vo.4,LRLCl  =  7.-‘»,  UkS!2E  =  7294), 

//  SPACE=<  IRK.I 5,3) ,RLSE ) 


t 

i 


r, 

r 
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//* 

//*  * 

//*  *  cvrfo^e4  L°T  CF  PRINT£0  OUTPUT  WHICH  IS  NOT  NECESSARY  * 

'/a  .  sr.-fflftj  .‘{"wtu?"  «s>3c£r  : 

//*  *  //J08NAME  JOB  < PARAMETERS!, *YOUR  NAME’.MSGLEVELst 2,0)  * 

//.  . . 


//* 

//* 

//* 

//* 

//* 
ft* 

//• 

//* 

//* 
ft* 

//*  NOTE:  THIS  PROCEDURE  WAV  fi£  COPIED  BY  AN YJN£ .ANYWHERE  AT  ANYTIME 

*  PEACE  * 

//♦♦‘•••••••••a*****#*****,*.,,. 

••’••••••••♦******«*»***»*****»*##*, 


THIS  PROCEDURE  HAS  BEEN  BROUGHT  TO  YOU  COMPLIMENTS  CF 

CHUCK  WALL 

DIMENSIONALITY  OF  NATIONS  PROJECT 
fi.J.  PUMMEL  -  DIRECTOR 
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